perm filename DUMMY.LAP[DEN,LMM]1 blob sn#034857 filedate 1973-04-13 generic text, type T, neo UTF8
(DECIMAL) 

(LAP DUMMY SUBR) 
       (MOVEI 1 (QUOTE NIL)) 
       (POPJ P) 
       NIL 

(DECIMAL) 

(PRINT (LIST (ADD1 7) (QUOTE =) 1 0))